activePDF Toolkit 2011 API リファレンス
しおりの作成
チュートリアル > しおりの作成

Glossary Item Box

このチュートリアルでは、Toolkit を使用して既存の PDF 文書に、しおりを追加する方法について説明します。このチュートリアルを始めるにあたり、130 ページの PDF (ファイル名 : input1.pdf) が必要です。「新規 PDF ファイルの作成」チュートリアルで使用したサンプル B のスクリプトを変更して PDF を作成してください。
例:
Set pdf = CreateObject("APToolkit.Object")
r = pdf.OpenOutputfile ("G:\output.pdf")
If (r <> 0) Then
MsgBox "Unable to open output file!"
Exit Sub
End If

pdf.AddBookmarks = True
r = pdf.MergeFile ("g:\inputpdf.pdf", 0, 0)
pdf.AddInternalLinkBookmark "Page 59", 59, 0, 0
pdf.AddInternalLinkBookmark "Page 121", 121, 0, 0
pdf.AddURLBookmark "activePDF, Inc.", "http://www.activepdf.com"
pdf.GotoNextBookmarkLevel
pdf.AddTextBookmark "Products"
pdf.GotoNextBookmarkLevel
pdf.AddURLBookmark "Server",
"http://www.activepdf.com/products/serverproducts/server/index.cfm"
pdf.AddURLBookmark "Toolkit",
"http://www.activepdf.com/products/serverproducts/toolkit/index.cfm"
pdf.GotoPreviousBookmarkLevel
pdf.AddTextBookmark "Support"
pdf.GotoNextBookmarkLevel
pdf.AddURLBookmark "Examples",
"http://www.activepdf.com/support/troubleshooting/index.cfm"
pdf.CloseOutputFile
Set pdf = Nothing